home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / CPUs / Macintosh Solutions Demo / Macintosh Solutions 1.0 / card_2318.txt < prev    next >
Text File  |  1990-08-24  |  6KB  |  256 lines
  1. -- card: 2318 from stack: in.0
  2. -- bmap block id: 19049
  3. -- flags: 4000
  4. -- background id: 4734
  5. -- name: USAB1.2
  6.  
  7.  
  8. -- part 14 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=325 top=93 right=115 bottom=489
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Which Macintosh?…
  20. ----- HyperTalk script -----
  21.  
  22. on mouseUp
  23.   determineSoftware -- bg script
  24.   put char 4 of short name of this card into whichCategory
  25.   repeat with i = 8 to 11 -- "Category B"
  26.     set cursor to busy
  27.     if the hilight of cd btn i = true then
  28.       goSolution whichCategory,2
  29.       exit mouseUp
  30.     end if
  31.   end repeat
  32.  
  33.   repeat with i = 2 to 7 -- "Category A"
  34.     set cursor to busy
  35.     if the hilight of cd btn i = true then
  36.       goSolution whichCategory,1
  37.       exit mouseUp
  38.     end if
  39.   end repeat
  40.   answer "Please select at least one software category."
  41. end mouseUp
  42.  
  43.  
  44.  
  45.  
  46. -- part 15 (button)
  47. -- low flags: 00
  48. -- high flags: A005
  49. -- rect: left=289 top=164 right=185 bottom=423
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Word Processing
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   if the hilight of me is true then putMeInList (short name of me)
  61.   else getMeOutOfList (short name of me)
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 16 (button)
  67. -- low flags: 00
  68. -- high flags: A005
  69. -- rect: left=79 top=284 right=305 bottom=213
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Spreadsheets
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   if the hilight of me is true then putMeInList (short name of me)
  81.   else getMeOutOfList (short name of me)
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 17 (button)
  87. -- low flags: 00
  88. -- high flags: A005
  89. -- rect: left=79 top=204 right=225 bottom=213
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: Database
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   if the hilight of me is true then putMeInList (short name of me)
  101.   else getMeOutOfList (short name of me)
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 18 (button)
  107. -- low flags: 00
  108. -- high flags: A005
  109. -- rect: left=79 top=224 right=245 bottom=213
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: E-Mail
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   if the hilight of me is true then putMeInList (short name of me)
  121.   else getMeOutOfList (short name of me)
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 19 (button)
  127. -- low flags: 00
  128. -- high flags: A005
  129. -- rect: left=79 top=144 right=165 bottom=218
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Accounting
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   if the hilight of me is true then putMeInList (short name of me)
  141.   else getMeOutOfList (short name of me)
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 20 (button)
  147. -- low flags: 00
  148. -- high flags: A005
  149. -- rect: left=79 top=244 right=265 bottom=218
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Presentations
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   if the hilight of me is true then putMeInList (short name of me)
  161.   else getMeOutOfList (short name of me)
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 7 (button)
  167. -- low flags: 00
  168. -- high flags: A005
  169. -- rect: left=79 top=164 right=185 bottom=252
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Business Management
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   if the hilight of me is true then putMeInList (short name of me)
  181.   else getMeOutOfList (short name of me)
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 9 (button)
  187. -- low flags: 00
  188. -- high flags: A005
  189. -- rect: left=79 top=184 right=205 bottom=248
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: Data Entry & Retrieval
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   if the hilight of me is true then putMeInList (short name of me)
  201.   else getMeOutOfList (short name of me)
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 10 (button)
  207. -- low flags: 00
  208. -- high flags: A005
  209. -- rect: left=79 top=264 right=285 bottom=218
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Publishing
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   if the hilight of me is true then putMeInList (short name of me)
  221.   else getMeOutOfList (short name of me)
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 13 (button)
  227. -- low flags: 00
  228. -- high flags: A005
  229. -- rect: left=289 top=144 right=165 bottom=428
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 0 / 0
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: Unix
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   if the hilight of me is true then putMeInList (short name of me)
  241.   else getMeOutOfList (short name of me)
  242. end mouseUp
  243.  
  244.  
  245.  
  246. -- part contents for background part 1
  247. ----- text -----
  248. USAB1.2
  249.  
  250. -- part contents for background part 3
  251. ----- text -----
  252. 7
  253.  
  254. -- part contents for background part 7
  255. ----- text -----
  256. Click to select the software categories that interest you, then click the ‚ÄúWhich Macintosh?‚Ķ‚Äù button to see the recommended Macintosh.